home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / CDEXEC.PAS < prev    next >
Pascal/Delphi Source File  |  1992-02-21  |  596b  |  39 lines
  1.  
  2. (*
  3.  * cdexec - cd to the directory of a file and execute a program
  4.  *
  5.  * s.h. smith, 2/21/92
  6.  *
  7.  *)
  8.  
  9. {$m 10000,10000,10000}
  10.  
  11. uses tools, dos;
  12.  
  13. var
  14.    home: string;
  15.    fn:   string;
  16.    cmd:  string;
  17.    i:    integer;
  18.  
  19. begin
  20.    if paramcount < 2 then
  21.    begin
  22.       writeln('usage: cdexec filename program ... params ...');
  23.       halt(1);
  24.    end;
  25.  
  26.    getdir(0,home);
  27.    fn := path_only(paramstr(1));
  28.    chdir(fn);
  29.  
  30.    cmd := '';
  31.    for i := 2 to paramcount do
  32.       cmd := cmd + ' ' + paramstr(i);
  33.  
  34.    exec(getenv('COMSPEC'),'/c'+cmd);
  35.    chdir(home);
  36.  
  37. end.
  38.  
  39.